3 GOSUB10000
5 B=198
6 BL$="                                       ":OPEN15,8,15,"I0":CLOSE15
7 OPEN2,8,2,"$":FORX=0TO156:GET#2,A$:     :NEXT
8 GET#2,A$:SI=VAL(A$):CLOSE2
9 POKE53281,1:POKE53280,5
10 PRINT"[147][144]        [204][207][193][196][211][212][193][210][160][200]ARDCOPY [211]ETUP         "
20 PRINT"[196]O YOU HAVE:":PRINT:PRINT"  [195]OMMODORE 1525"
30 PRINT"  [195]OMMODORE 1526":PRINT"  [195]OMMODORE [205][208][211] 801"
40 PRINT"  [212]YMAC [195]ONNECTION"
50 PRINT"  [195]ARD/?[160][193], [194], OR +[199]"
60 PRINT"  [194]US[195]ARD [201][197][197][197]"
70 PRINT"OR ANY OTHER 1525-COMPATIBLE SETUP?"
80 POKEB,.:WAITB,1:GETA$
90 IFA$="Y"ORA$="[217]"THENPA=4:SA=7:C8%=-1:   GOTO300
100 IFA$<>"N"ANDA$<>"[206]"THEN80
110 PRINT"[196]O YOU HAVE A [195]OMMODORE 1520?"
115 FORX=0TO10:PRINTBL$:NEXT
120 POKEB,.:WAITB,1:GETA$
130 IFA$="Y"ORA$="[217]"THENPA=6:SA=0:          GOTO300
140 IFA$<>"N"ANDA$<>"[206]"THEN120
150 PRINT"[196]O YOU HAVE AN OLD [195]OMMODORE 1515?"
155 FORX=0TO10:PRINTBL$:NEXT
160 POKEB,.:WAITB,1:GETA$
170 IFA$="Y"ORA$="[217]"THENPA=4:SA=7:C8%=0:    GOTO300
180 IFA$<>"N"ANDA$<>"[206]"THEN160
190 :
200 PRINT"[207].[203]. THEN, PLEASE ENTER THE CORRECT"
202 PRINT"DATA FOR YOUR PRINTER:"
203 FORX=0TO10:PRINTBL$:NEXT
204 PRINT"[197]NTER PRIMARY   ADDRESS --";:INPUTPA$:PA=VAL(PA$)
206 PRINT:PRINT:PRINT"[197]NTER SECONDARY ADDRESS --";:INPUTSA$:SA=VAL(SA$)
300 :
301 PRINT"":FORX=0TO10:PRINTBL$:NEXT
302 PRINT"[208]RIMARY ADDRESS OF"PA"[157]."
304 PRINT"[211]ECONDARY ADDRESS OF"SA"[157]."
305 :
310 PRINT"[193]RE THESE SELECTIONS CORRECT?"
312 PRINT"          [[217]/[206]] OR [209] TO [209]UIT"
315 POKEB,0:WAITB,1:GETA$
320 IFA$<>"Y"ANDA$<>"N"ANDA$<>"Q"THEN315
325 :
330 IFA$="Q"THEN540
340 IFA$="N"THEN10
345 GOTO500
350 :
360 PRINT"":FORX=0TO20:PRINTBL$:NEXT
370 PRINT"   [208]LEASE MAKE SURE SIDE"SI"OF YOUR"
375 PRINT"   [204][207][193][196][211][212][193][210] DISK IS IN YOUR DRIVE."
380 PRINT" [208]LEASE PRESS A KEY WHEN YOU ARE READY."
381 PRINT"      ([208]RESS [209] TO [209]UIT)"
382 POKEB,0:WAITB,1:GETA$:IFA$="Q"THEN1000
402 GOSUB20000
410 PRINT"   [208]RINT FILE IS NOW ON THIS SIDE"
412 PRINT"            OF THE DISK."
416 RETURN
450 :
500 GOSUB360:IFFL=1THEN500
510 IFSI=1THENSI=2:GOTO530
520 IFSI=2THENSI=1
530 GOSUB360:IFFL=1THEN530
540 PRINT"":FORX=0TO20:PRINTBL$:NEXT
542 PRINT""
600 PRINT"[208]LACE [204][207][193][196][211][212][193][210] [211]IDE [207]NE IN YOUR DRIVE"
610 PRINT"AND PRESS ANY KEY TO RETURN TO MENU."
620 GETA$:IFA$=""THEN620
700 OPEN15,8,15,"R0:CUSTOM LS BOOT=CUSTOM LS BOOT":INPUT#15,ER:CLOSE15
710 IFER<>63THEN540
1000 LOAD"CUSTOM LS BOOT",8
10000 CR$=CHR$(13)
10005 OPEN15,8,15
10010 OPEN3,8,4,"SETUP"
10020 INPUT#3,D$(1),D$(2),D$(3),D$(4),D$(5),D$(6),D$(7)
10030 CLOSE3
10040 CLOSE15
10050 PA=VAL(D$(4)):SA=VAL(D$(5))
10060 RETURN
20000 CLOSE15:OPEN15,8,15
20010 D$(4)=MID$(STR$(PA),2)
20012 D$(5)=MID$(STR$(SA),2)
20070 OPEN3,8,4,"SETUP":CR$=CHR$(13)
20080 PRINT#15,"P
"CHR$(0)"
";
20082 PRINT#3,D$(1)CR$D$(2)CR$D$(3)CR$D$(4)CR$D$(5)CR$D$(6)CR$D$(7)CR$
20100 CLOSE3
20110 CLOSE15
20120 RETURN